'!TITLE "<Title>"
PROGRAM Pro11
              
COM_ENCOM #1    
TAKEARM                         
DEFINT Z,Ii1=0                 
'DEFINT laserbutton,laser,ontime,ctime               
DEFSTR Q


MOVE P,J0                   
FLUSH #1                    
PRINT #1,"S"            
RESET IO[68]
SET IO[69]
'----------------------------------------------------------------------

*L2:

'Ii1 = Ii1 + 1

FLUSH #1                              
INPUT #1,P10

'EXTSPEED Z  

'MOVE L,@P P10   
APPROACH P, P10, 4
'MOVE  L ,@20 P10, S= 100  
             

DO
 PRINT #1,"S"
 FLUSH #1
 INPUT #1,Q,WTIME=10
 IF Q="q" THEN EXIT DO
LOOP

LET Q=" "

GOTO *L2   
           

'----------------------------------------------------------------------


END
